* Import ENH 1997-1
* This file converts the files from the ENH 1997-1 into Stata format. 
* Inputs: Files in Data/Original/encuestas de hogares/ENH/1997/1/eh95mz97.P99
* Outputs: Files in Data/Importable/ENH/1997/TRIM 1 

clear all
version 13.1

* Change
project, doinfo   
local master "`r(pdir)'"
local doname "`r(dofile)'" 

cap mkdir "`master'/Data/Importable/ENH/1997"
cap mkdir "`master'/Data/Importable/ENH/1997/TRIM 1"
cd "../../Data/Original/encuestas de hogares/ENH/1997"
cd eht19971

* Registro tipo 10 - Caracteristicas generales
infix tipo_registro 1-2 str id 3-24 str municipio 3-4 segmento 5-7 estrato 8 sector 9-12 seccion 13-14 manzana 15-16 vivienda 17-19 hogar 20-21 personas_hogar 22-23 resultado_encuesta 24 orden 25-26 ///
parentesco 27-28 sexo 29 edad 30-31 estado_civil 32 str departamento_nacimiento 33-34 str municipio_nacimiento 35-37  cabecera_nacimiento 38 tiempo_residencia 39-40 asiste_escuela 41 colegio_oficial 42 ultimo_grado_estudios 43-45 lee_escribe 46 ///
area 93-94 fex 95-98 ///
if tipo_registro==10 using eh95mz97.P99 , clear

save "`master'/Data/Importable/ENH/1997/TRIM 1/1997_1_general.dta" , replace
project, creates("`master'/Data/Importable/ENH/1997/TRIM 1/1997_1_general.dta")

* Registro tipo 50 - Fuerza de trabajo
clear
infix tipo_registro 1-2 str id 3-24 str municipio 3-4 segmento 5-7 estrato 8 sector 9-12 seccion 13-14 manzana 15-16 vivienda 17-19 hogar 20-21 personas_hogar 22-23 resultado_encuesta 24 orden 25-26 ///
actividad 27 trabajo 28 no_trabajo_empleo 29 razon_ausente 30 busco_ultima 31 ha_buscado 32 no_ha_buscado_t 33-34 d_ing_trabajo 35 d_ing_intereses 36 d_ing_arriendo 37 d_ing_pension 38 d_ing_ayudas 39 d_ing_otros 40 d_ing_no 41 ingreso 42-51 ///
area 93-94 fex 95-98 ///
if tipo_registro==50 using eh95mz97.P99 , clear

save "`master'/Data/Importable/ENH/1997/TRIM 1/1997_1_fuerza_trabajo.dta" , replace
project, creates("`master'/Data/Importable/ENH/1997/TRIM 1/1997_1_fuerza_trabajo.dta")

* Registro tipo 60 - Ocupados
clear
infix tipo_registro 1-2 str id 3-24 str municipio 3-4 segmento 5-7 estrato 8 sector 9-12 seccion 13-14 manzana 15-16 vivienda 17-19 hogar 20-21 personas_hogar 22-23 resultado_encuesta 24 orden 25-26 ///
trabajo_permanente 27 horas_ultima 28-29 horas_semana 30-31 quiere_trabajar_mas 32 motivo_trab_mas 33 ocupacion 34-35 actividad_empresa 36-37 tipo_trabajador 38 salario 39-48 salario_period 49 d_salario_alimentos 50 salario_alimentos 51-60 ganancia_mes 61-70 d_otros_ingresos 71 otros_ingresos 72-81 afiliado_salud 82 afiliado_pension 83  ///
area 93-94 fex 95-98 ///
if tipo_registro==60 using eh95mz97.P99 , clear
save "`master'/Data/Importable/ENH/1997/TRIM 1/1997_1_ocupados.dta" , replace
project, creates("`master'/Data/Importable/ENH/1997/TRIM 1/1997_1_ocupados.dta")

* Registro tipo 70 - Desocupados
clear
infix tipo_registro 1-2 str id 3-24 str municipio 3-4 segmento 5-7 estrato 8 sector 9-12 seccion 13-14 manzana 15-16 vivienda 17-19 hogar 20-21 personas_hogar 22-23 resultado_encuesta 24 orden 25-26 ///
tiempo_buscando 27-28 buscado_pte 29 buscado_tcompleto 30 buscado_tipo 31 buscado_ocupacion 32-33 buscado_actividad 34-35 buscado_primeravez 36 tiempo_dejo_trabajar 37-38 trabajoo_ocupacion 39-40 trabajoo_actividad 41-42 trabajoo_tipo 43 d_ing_trabajo 44 d_ing_intereses 45 d_ing_arriendos 46 d_ing_pensiones 47 d_ing_ayudas 48 d_ing_otros 49 d_ing_no 50 ingreso 51-60 ///
area 93-94 fex 95-98 ///
if tipo_registro==70 using eh95mz97.P99 , clear
save "`master'/Data/Importable/ENH/1997/TRIM 1/1997_1_desocupados.dta" , replace
project, creates("`master'/Data/Importable/ENH/1997/TRIM 1/1997_1_desocupados.dta")

* Registro tipo 80 - Inactivos
clear 
infix tipo_registro 1-2 str id 3-24 str municipio 3-4 segmento 5-7 estrato 8 sector 9-12 seccion 13-14 manzana 15-16 vivienda 17-19 hogar 20-21 personas_hogar 22-23 resultado_encuesta 24 orden 25-26 ///
segunda_actividad 27 tiempo_inactivo 28 actividad_antes 29-30 tiempo_trabajando 31-32 motivo_dejo_trabajo 33 ha_buscado 34 cuando_busco 35-36 motivo_no_buscado 37 ///
area 93-94 fex 95-98 ///
if tipo_registro==80 using eh95mz97.P99 , clear
save "`master'/Data/Importable/ENH/1997/TRIM 1/1997_1_inactivos.dta" , replace
project, creates("`master'/Data/Importable/ENH/1997/TRIM 1/1997_1_inactivos.dta")

* Registro tipo 90 - Acceso al servicio de justicia

clear 
infix tipo_registro 1-2 str id 3-24 str municipio 3-4 segmento 5-7 estrato 8 sector 9-12 seccion 13-14 manzana 15-16 vivienda 17-19 hogar 20-21 personas_hogar 22-23 resultado_encuesta 24 ///
d_conflicto  25 str conflictos 26-28 afectados_1 29-30 afectados_2 31-32 que_hicieron 33 autoridad 34 resultado 35 razon_no_atencion 36 acceso_dificil 37 razon_acceso_dificil 38 asesoria 39 tipo_asesoria 40 razon_no_acudir_j 41 razon_no_acudir_p 42 o_ser_jus 43 o_jus_oper 44 o_tramites 45 o_costos 46 o_credibilidad 47 sabe_derechos 48 str derecho_1 49-50 str derecho2 51-52  ///
area 93-94 fex 95-98 ///
if tipo_registro==90 using eh95mz97.P99 , clear
save "`master'/Data/Importable/ENH/1997/TRIM 1/1997_1_justicia.dta" , replace
project, creates("`master'/Data/Importable/ENH/1997/TRIM 1/1997_1_justicia.dta")

